home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Utilities / Virus Checkers / Info About Viruses / Intro to Viruses 2.3 / Intro to Viruses 2.3 / background_2655.txt < prev    next >
Text File  |  1990-10-04  |  5KB  |  225 lines
  1. -- background: 2655 from stack: in.3
  2. -- bmap block id: 3081
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on curlall
  8.   repeat with count = 1 to the number of cards
  9.     go card count
  10.     curlem
  11.   end repeat
  12. end curlall
  13.  
  14.  
  15.  
  16.  
  17.  
  18. on curlem
  19.   repeat with count = 1 to the number of bkgnd fields
  20.     get bkgnd field count
  21.     put "First" into flag
  22.     repeat until quote is not in it
  23.       if flag is "first" then
  24.         put "‚Äú" into char offset(quote,it) of it
  25.         put empty into flag
  26.       else
  27.         put "‚Äù" into char offset(quote,it) of it
  28.         put "First" into flag
  29.       end if
  30.     end repeat
  31.     repeat until "'" is not in it
  32.       put "‚Äô" into char offset( "'",it) of it
  33.     end repeat
  34.     put it into field count
  35.   end repeat
  36.   repeat with count = 1 to the number of cd fields
  37.     get cd field count
  38.     put "First" into flag
  39.     repeat until quote is not in it
  40.       if flag is "first" then
  41.         put "‚Äú" into char offset(quote,it) of it
  42.         put empty into flag
  43.       else
  44.         put "‚Äù" into char offset(quote,it) of it
  45.         put "First" into flag
  46.       end if
  47.     end repeat
  48.     repeat until "'" is not in it
  49.       put "‚Äò" into char offset( "'",it) of it
  50.     end repeat
  51.     put it into cd field count
  52.   end repeat
  53. end curlem
  54.  
  55.  
  56.  
  57. on findbtn
  58.   lock screen
  59.   get the short name of the target
  60.   find it in field "title"
  61.   unlock screen with visual barn door open
  62. end findbtn
  63.  
  64.  
  65.  
  66.  
  67. -- part 3 (field)
  68. -- low flags: 00
  69. -- high flags: 0000
  70. -- rect: left=29 top=22 right=45 bottom=343
  71. -- title width / last selected line: 0
  72. -- icon id / first selected line: 0 / 0
  73. -- text alignment: 0
  74. -- font id: 2
  75. -- text size: 18
  76. -- style flags: 10240
  77. -- line height: 24
  78. -- part name: Title
  79. ----- HyperTalk script -----
  80. on closefield
  81.   set the name of this card to char 1 to 27 of target
  82. end closefield
  83.  
  84.  
  85. -- part 11 (field)
  86. -- low flags: 02
  87. -- high flags: 0000
  88. -- rect: left=24 top=51 right=72 bottom=406
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 0
  92. -- font id: 2
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Sub-Title
  97.  
  98.  
  99. -- part 4 (field)
  100. -- low flags: 00
  101. -- high flags: 0000
  102. -- rect: left=22 top=69 right=283 bottom=485
  103. -- title width / last selected line: 0
  104. -- icon id / first selected line: 0 / 0
  105. -- text alignment: 0
  106. -- font id: 2
  107. -- text size: 12
  108. -- style flags: 0
  109. -- line height: 16
  110. -- part name: Text
  111.  
  112.  
  113. -- part 16 (field)
  114. -- low flags: 02
  115. -- high flags: 0000
  116. -- rect: left=353 top=303 right=317 bottom=431
  117. -- title width / last selected line: 0
  118. -- icon id / first selected line: 0 / 0
  119. -- text alignment: 0
  120. -- font id: 2
  121. -- text size: 10
  122. -- style flags: 0
  123. -- line height: 13
  124. -- part name: More
  125.  
  126.  
  127. -- part 25 (button)
  128. -- low flags: 00
  129. -- high flags: 2000
  130. -- rect: left=26 top=299 right=319 bottom=53
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 19381 / 19381
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Prev
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   visual barn door close
  142.   go card "table of contents"
  143. end mouseUp
  144.  
  145.  
  146.  
  147. -- part 26 (button)
  148. -- low flags: 00
  149. -- high flags: 2000
  150. -- rect: left=454 top=297 right=321 bottom=482
  151. -- title width / last selected line: 0
  152. -- icon id / first selected line: 11045 / 11045
  153. -- text alignment: 1
  154. -- font id: 0
  155. -- text size: 12
  156. -- style flags: 0
  157. -- line height: 16
  158. -- part name: Home
  159. ----- HyperTalk script -----
  160. on mouseUp
  161.   visual iris open
  162.   go Home
  163. end mouseUp
  164.  
  165.  
  166.  
  167. -- part 27 (button)
  168. -- low flags: 00
  169. -- high flags: A000
  170. -- rect: left=50 top=301 right=317 bottom=104
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 2
  175. -- text size: 10
  176. -- style flags: 0
  177. -- line height: 13
  178. -- part name: Contents
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   visual barn door close
  182.   go card "Table of Contents"
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 28 (button)
  188. -- low flags: 00
  189. -- high flags: 2000
  190. -- rect: left=323 top=300 right=320 bottom=350
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 22308 / 22308
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Next
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   visual wipe left
  202.   go next
  203. end mouseUp
  204.  
  205.  
  206.  
  207. -- part 29 (button)
  208. -- low flags: 00
  209. -- high flags: 2000
  210. -- rect: left=160 top=299 right=319 bottom=187
  211. -- title width / last selected line: 0
  212. -- icon id / first selected line: 19381 / 19381
  213. -- text alignment: 1
  214. -- font id: 0
  215. -- text size: 12
  216. -- style flags: 0
  217. -- line height: 16
  218. -- part name: Prev
  219. ----- HyperTalk script -----
  220. on mouseUp
  221.   visual wipe right
  222.   go prev
  223. end mouseUp
  224.  
  225.